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MISCELLANEOUS NOTES 

Please note the new format (again). This was done to ease 
the cost of producing this newsletter, not to cause any eye 
strain. Excuse the small print. 

A few of you who responded to my letter in Kilobaud Micro ¬ 
computing have asked about ON_LINE. ON_LINE is a "buy and sell 
forum for the computer hobbyist", published 17.3925 times a 
year by Dave Beetle. ON_LINE is a small magazine chock full of 
advertisements submitted by computer enthusiasts. It is avail¬ 
able free of charge in some microcomputer stores, or you can 
subscribe directly* $ 1.00 for 4 issues, $3*75 for 18 , or $ 7.00 
for 36. That’s a hard price to beat, and so are most of the 
prices inside 0N_LINE as well. Worth looking into if you need 
any equipment. 

Going to Australia? Perhaps you should drop the Sorcerer 
Users Group there a line (P.0. Box 144, Doncaster, Vic., 3103). 
They sent me a copy of their newsletter, some of which is re¬ 
produced in this issue (see the articles on program merging 
and recovery). I have entered into an agreement with them 
which allows the unlimited reprinting of material from the 
other groups newsletter (ala Creative Computing). Note* if 
for any reason you submit something to me and do not want it 
to appear in their newsletter, tell me so upon submission. 

I'll make sure that they do not receive it. By the wav, you 
can subscribe directly to their nev/sletter by sending $ 10.00 
to the given address. 

Back issues of The Sorcerer's Apprentice are available, but 
due to the unanticipated demand for them, there will now be a 
$.75 fee to cover the costs of copying and mailing. No SASE 
is needed, but please send a checx or other form of paper money 
(no stamps) and let me know what issues you want. 

If you live outside the U.S.A., self-addressed, stamped 
envelopes are probably a little hard to come by (especially 
the American stamps). There is a simple solution, however. In¬ 
stead of sending an SASE near publication time, send $1.50 (US). 
This will get the Apprentice to almost anyplace in the world, 
hot off the press, of course. 

Ralph Ruh (623 Medill Ave., Lancaster, OH, 43130) has a log¬ 
keeping program for HAM'S. He says it runs well in a 16K sys¬ 
tem. Contact Ralph for more details. 

The Sorcerer's Apprentice is published approximately 8 ti mes a ^ 
year by The Sorcerer User's Group, Dave Bristor, 1530 Wah'fenaw", 
Ann Arbor, MI, 48l04. Send a self-addressed, stamped envelope 
for membership and subscription details. 


QUESTIONS AND ANSWERS 

I am happy to personally answer any questions you may have, 
although you should keep in mind that I am not an expert in any 
fashion. If you would like a direct answer, please send an extra 
self-addressed, stamped envelope. Of course, if enough people 
ask the same question, it will be answered in the Apprentice, 
and I’ll use your SASE for another issue. 

YOU CAN’T ALWAYS GET WHAT YOU WANT 

Especially if you don’t tell me what you want to see! I am 

prepared to write about and print anything I can get my hands 

on. If you don’t think you can write well enough to have some¬ 
thing printed, send me your basic idea and I will spruce it up. 

You will, of course, still receive credit as author. 

Can’t think what to write about? Here are some ideas* book 
reviews of the Technical Manual, the word processing and develop¬ 
ment ROM FAC’s, the Creative Computing programs, interfacing 
through either one of the 1/0 ports or through the expansion 
connector, review of the S-100 unit, or anything you have 
hooked onto your Sorcerer. The Sorcerer is still a new computer, 
and almost everything needs to be said about it. 

PROGRAM EXCHANGE 

After the release of the next issue, you should be able to 
get the programs listed in these pages on a cassette tape. 

Thanks to all of you who volunteered to serve as exchanger. You 
will be hearing from me shortly if you have not already. 

SASE INFO 

Self-addressed, stamped envelopes have so far proven to be 
a good way of keeping the Apprentice's costs down. However, a 
few guidelines about the use of SASE’s are in order. Do not use 
those nifty little return address labels for the mailing address{ 
they seem to have a slight tendency to fall off when placed in 
the middle of an envelope. Do include some sort of return add¬ 
ress on your envelope to assure that your Apprentice eventually 
gets somewhere. And lastly, to avoid issue mix-ups, mark your 
envelope with the number of the issue you want. 

PUBLICATION SCHEDULE 

These are only approximate dates, but I will try to stick 
to them as much as possible. I am printing r ,hem for you to know 
when to send an SASE: #4, September 301 #5» November 17; #6, 
December 30. After December we'll just have to see what happens. 
The December issue will contain information on the future of The 
Sorcerer’s Apprentice. 
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PROGRAM MERGING 

contributed by I. McMillan and D. Trussel 
Sorcerer Users Group newsletter, vol. 1, no. 2 
Australia 

"The procedure described here has been empirically derived. 

When it is followed precisely I have always found it to be suc¬ 
cessful. The steps are time consuming. Unless you wish to add a 
program of some size (at least 10 lines) it is probably not prac¬ 
tical to use. 

"The merge operation involves 3 main steps. Firstly, monitor 
LOad is used to stack a new program ri/ht behind one already exis¬ 
ting in memory. Secondly, contents of the memory location hold¬ 
holding the program length are increase to allow for the expanded 
size of the combined programs. Thirdly, a fictitious line is ad¬ 
ded to force the interpreter to rectify the line header of the 
appended program lines. 

"The example illustrates how two programs are combined. In 
detail these steps are* 

1. If the first program is not already in the computer, CLOAD 
it from a cassette. 

2. Leave BASIC and enter monitor mode. 

3. DUmp memory in the vicinity of the last program line. The 
end of the last program line will be denoted by a set of 3 
or 4 00*s. 

4. LOad the program to be added using the address of the se¬ 
cond 00 (0233 in the example) for the starting address. 

This command will be of the form L0 NAME 1 abed where abed 
is the address of the second 00. The tape unit "umber (1 in 
the example) must be used (see Guided Tour Manual page 50)• 

5. Memory is DUmped in the vicinity of the end of the second 
program. The format is identical to that described in step 

3 above. The location can be rough3y determined by adding the 
BLCK length of the second program to its start address. (Note* 
addresses and BLCK are hexadecimal numbers.) 

6. The address of the fourth 00 is noted (02A5 in the example). 
This address is ENtered into 1B7 and 1B8 in the following 
manner - 

(a) enter* EN, space, 137, return 

(b) enter* second pair of address digits (a5 in the 
example), space, the first pair of address di¬ 
gits (02(, the back slash, and then return. 

7. Return to BASIC. 

8. Before you do anything else, enter a fictitious line number 
(i.e. on8 not used in either program) and statement. 0 REM 
has been used in the example. This line may now be remo¬ 
ved if you v/ish. 

"The two programs are now combined into a single program. 

The procedure will work correctly even if there are identical 
line numbers in the two programs. However, it is desirable to 
have line numbers of the original program all lower than those 
of the second program. The renumbering program in next month's 
issue of the newsletter will facilitate the combining of 3ASIC 
programs. 

"There is one problem which can occur when the above procedure 



is used. Sometimes there are only 3 00's present at the end of 
the combined program (see step 6). In-this case it is necessary 
to ENter a 00 in the location following the third 00 (and then 
proceed to step 7)." 

PROGRAM RECOVERY 

contributed by the Sorcerer Users Group 
newsletter, Australia 

"Programs can be recovered after a NEW command has been exe¬ 
cuted. All that the new command does is place 00 in locations 
IDS and 1D6. These locations normally hold the memory location 
of the beginning of the second line of the program. Program lines 
in BASIC end with 00. Therefore, the location after the first 00 
after 1D8 (1D7 and 1D8 hold the line number of the first line) 
is the number needed for the contents of 1D5 and 1D6. To look 
at memory, use the DUmp command. The last two digits are ENtered 
in 1D5 and the first two digits are ENtered in 1D6. The con¬ 
tents of memory locations 1B7 and 138 must be corrected in a simi¬ 
lar fashion. These locations must contain the low and high order 
bytes respectively of the end of the last line in BASIC. After 
that is carried out return to BASIC (PP). Enter a new line number 
(eg 0 REM). The program should now be recovered." 

Thanks for the tips, folks. .Ye'll be looking forward to 
that renumbering program. 

MORE ONE-STROKE STATEMENTS 

Thanks to all who sent in this information. As you may or may 
not know, the Sorcerer's BASIC stores statements such as PRINT 
and STOP not as words themselves but as a single character. The 
interpreter translates from character to v/ord for listings. The 
character is usually one of the graphics, as shown in appendix 
F in "A Short Tour of BASIC" that is provided with your Sorcerer. 

There are some further statements, however, that were ommitted 
from this section in the book. These are not just "graphic" 
statements, but "shift-graphic" statements. In other words, 
you need to depress the SHIFT and GRAPHIC keys along with the pro¬ 
per key on the keyboard to get the desired statement. The table 
shows how to get what* 

1 - STR$ 

2 - VAL 

All numbers are on 3 - ASC ( Remember to depress the SHIFT 

the main keyboard. 4 - CHR? ' and GRAPHIC keys at the same time. 

5 - LEFT$ 

6 - RIGHT? 

7 - MID3 

None of the other keys on the Sorcerer seems to produce anything 
relevant when used in this manner. They do produce some inter¬ 
esting garbage, though. 
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THE COST OF APPRENTICING 


With over one hundred and twenty of you now receiving this 
newsletter* printing costs have risen excruciatingly high. One 
change I have tried newly with this issue is the reduced format 
size. This should help somewhat. This newsletter is* however, 
a self supported project. It was not my intention to go for 
broke in writing it. I would like to help other Sorcerer owners 
get the most out of their machines (and likewise help myself). 

I appreciate very much the donations some of you have sent in, 
and would like to request of the rest of you reading this issue 
that you help out too. Any little bit you can give will help 
assure that there will be an issue following this one. 

Along the money lines, a nearby store has informed me that 
they plan to start their own Sorcerer users group this September. 
One of the employees there has made mention of the fact that they 
may want to purchase my mailing list of Sorcerer owners. I know 
that it is standard practice in the world of magazine publishing 
to sell mailing lists (how do yo think you get all that junk 
mail, anyway?), but I wanted an OK from you first. On your next 
SASE simply mark N if you do not want your name to be sold, 
otherwise 1*11 assume you have no objections. 

One last note. If you do send a contribution, please keep 
sending SASE's. Once I*m in school again this fall, my time 
will be more valuable than anything else, and it just won't be 
possible to address and put stamps on 100 or so envelopes. If 
you prefer, send a bunch of envelopes at once. I'll make sure 
that your issue is sent as soon as it is printed. 

PROGRAM LEGALITY 

The Sorcerer's Apprentice is in need of someone familiar 
with copyright laws. Several would-be-program-submitters have 
asked me about programs. Most claim that they have programs 
which are not exactly original- they have modified someone else's 
for their Sorcerer. Some have taken old programs from books, 
some from other programs on other machines. The main question 
is this* Can The Sorcerer's Apprentice print programs modified 
for the Sorcerer that have previously appeared in other copy¬ 
righted publications? The Mastermind program in this issue is 
an example of what I mean. I know the program is original; I 
helped the author (my sister) write it. I know that there are 
other Mastermind's running on other systems, although they are'nt 
always called Mastermind. Can anyone out there provide an answer? 

G2 ROULETTE CORRECTIONS 

Donald Despres of Columbia, ?flaryland, sent the following 
which he received from Joe Hanks at GRT in California. 

"The problem is due to the functioning of random numbers. 
Statement number 2840 is* 

2840 NN=INT(RND(1)*38)*NT=NN+152 
"The statement RND(l) returns a random number between 0 and 1. 
The integer value of this number multiplied by 38 is used as a 
subscript for the array named W$(l) to W$(38). Due to the 


function of RND, it is possible that the subscript value will be 
zero. This happens when the number 28 comes up on the "wheel". 
This is what causes the Illegal Function Call in statement 3010. 
To correct the problem, change the statement 2840 to be as 
follows t 

2840 NN=INT(RND(l)*38+l)*NT=NN+152" 

Thanks to Donald and to Joe for this fix. (PS Anybody else have 
this program package? How about reviewing it- is it a good buy?) 

DATABASE MANAGEMENT 
CONTRIBUTED BY YOURS TRULY 

This program is a follow-up to the string saving short pro¬ 
gram that appeared in the last issue. It allows you to create 
records in a file with variable length fields and later save 
them on cassette. Many databases can be used with the same pro¬ 
gram in this case. One such use is an address list with all the 
names, phone numbers, and addresses of people you communicate 
with. I am using a modified version of the program to keep all 
of your names where I can easily find them. The program is 
fairly straightforward, but I have discovered a few changes that 
should be made. The main one has to do with the limit on the 
length of a line. This is set in the monitor's firmware to 
somewhere around 64 characters. Thus if you try to retrieve a 
72 character record from tape, the program will read it as two 
separate records. The easy way to fix this is to limit the 
length of the record to 64 characters when INPUTing it from the 
keyboard. Do this by changing the 255's to 64's in lines 400 
and 4l0. The other method I know of, which doesn't place a limit 
on the record lengths, is to add these lines* 

923 * IF RIGHT$(REC$(I), l)=" " THEN 930 

925 » INPUT R$ * REC$(I)=REC$(I)+RIGHT$(R$,LEN(R$-1)*G0T0 920 

928 * R$s"** 

The other problem has to do with CLEARing the proper amount 
of memory. If there is not enough string space, the program may 
bomb out after you have entered many records, and all will have 
gone to waste. 

MASTERMIND 

CONTRIBUTED BY EMILY BRISTOR 
TROY, MI 

"This game is one of many possible variations of the game of 
Mastermind. I chose to use numbers instead of colors because 
they are easier to work with and easier to remember when playing 
the game. I also made it possible for the player to choose be¬ 
tween two levels of difficulty for beginners at the game and for 
the more experienced player. The program will not allow the 
computer to choose the same number twice in any combination it 
"thinks" up, therefore the player is not allowed to do so either 
and is reminded if he does so. The graphics I used did not come 
out as such in the listing. In lines 4l0, 460, and 500 you 
should use graphic-x for the exclamation points. In 410 and 460 
use graphic-c for the dashes, and in line 500 use graphic-v for 
the dashes." 
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the value of the expression is negative, you will get an 
error message. If the value is not a whole number. 
Sorcerer will ignore the fractional part. 

You can use CLEAR <expression> as a program statement to 
reserve string space during the execution of a program. 

Example: 

10 CLEAR 999 

20 INPUT "Tell me your life story"; X$ 

However, be careful doing this—CLEAR <expression> sets all 
your numerical variables to zero. 






10 REM MASTERMIND BY EMILY BRISTOR, JULY-AUGUST, 1979 
20 PRINTCHRS(12) 

30 PRINT TAB(16){"WELCOME TO MASTER-MIND!"SPRINT:PRINT 
40 INPUT "DO YOU WANT INSTRUCTIONS ";K$ 

50 IF ASC(K$) <> 73 AND 4SC(K$) <> 110 THEN G0SU9 1090 
60 DIM M ( 4,9) 

70 DIM P(! f 9) 

80 DIM Q(l,9) 

90 PRINTsINPUT "CHOOSE BEGINNER (USES 1-6) OR ADVANCED (USES 1-9 
) GAME ";L$ 

100 IF 4SC(L$)=66 OR ASC(L$)=93 THEN R = 6 
110 IF 4SC(L$)=65 OR ASC(L$)=97 THEN R = 9 
120 REM 

130 PRINT SPRINT :PRINT 
140 XX = RND(-RND(1)) 

150 W=INT(RND(l)*R.+l) 

160 X = INT(RND(l)*R+l) 

170 IF X=W GOTO 160 
130 Y = INT(RND(1)*R+1) 

190 IF Y=X OR Y=W GOTO 180 
200 Z = INT(RND(1)*R+l) 

210 IF Z=W OR Z=X OR Z = Y GOTO 203 
220 PRINTCHR$(12) 

230 FOR 1=1 TO 9 

240 PRIMTsPRINT "GUESS "si; 

250 IF 1=9 THEN PRINT "(THIS IS YOUR LAST SHOT)"; 

260 M(1,I)=0:M(2,I)=0sM(3,I)=3:M(4 t I)=0 
270 INPUT M(l f I) f M(2 # I),M(3 t I) t M(4,I) 

230 F=0 

290 FOR V=1 TO 3 

300 FOR J=(V+l) TO 4 

310 IF M(V,I)=M(J f I) THEN G0SUB 920 

320 IF F =I THEN J = 4 AND V = 3sGOTO380 

330 NEXT J 

340 NEXT V 

350 IF•F= l GOTO 520 

360 P(1,I)=0:Q(1,I)=0 

370 GOSUB 530 

330 REM 

390 N$ = "!";IF F=1 GOTO 410 
400 PRINTCHR$(12)SPRINT 


410 

PRINT"! 

---If... 

!---!■ 

---! - 

— ! !-!---!'* 


420 

PRINTN$ 

5 " " ;N$ 

?Ni;" 

A 

M$;" B ” }N$ J" C ” 

; N1;" D "; 

430 

PRINTNS 

S»$i” N 

"SN$;* 

. p .. 

;N$ 

440 

FOR £=1 

TO I 





450 

IF F = 1 

THEN P(l 

,I)=0! 

: Q( 1, 

I)=0 


460 

PRINT"! 


! ---* * 

-! - 

--! !- — !- — !" 


470 

PR INTM$ 

; E; N $; N $ 

:M( 1 ,3 

i) ;N$ 

;M(2,E) ?M$;:i(3,E) 

5 N T; M (4, E); 

430 

PRINTNS 

;N$ ;P(1, 

E); N $; 

19 (11 

E) ;N$ 


490 

NEXT E 






500 

PRINT"! 

-!!- 

!---!• 


--I!---!---!" 



510 IF 1=9 GOTO 630 

520 NEXT l 

533 FOR B =1 TO 4 

553 NEXT C f * 1 5 =<1 * 0RV| (B * 1 ) =Y0R^! ( 9.I>=ZTHEN ? Ci,I>=PCl,I)+l 

560 IF M (l # I )= W THEN 3 (1 ,1 ) = 9( 1 # I ) +1 
570 IF M(2,I)=X THEM Q( 1 ,I)=Q(l,I) +1 
530 IF M( 3 ,1 ) = Y THEN Q (1 ,1 ) = Q( 1,1 )+1 
590 IF M(4 # I ) = Z THEN 9(1 # t)=Q(1.1)+1 






600 IF P(I,I)=4 AND Q(l,I)=4 THEMGOSUB 630 
610 IF P(l,I)=4 AMD 3(1,I)=4 GOTO 650 
620 RETURN 

630 IF 1=9 THEN' PRINT SPRINT "YOU BLEW IT, IDIOT.” 

640 IF 1=9 THEN PRINTsPRINT “THE RIGHT COMBINATION ••MS” j W; X: Y; Z 
550 PRINT SPRINTsINPUT “DO YOU WANT TO PLAY AGAIN ";N$ 

THEN PRIMT-YTHANKS FOR PLAYING Ml 

IH ME* {STOP 
670 GOTO 140 
630 REM 

690 IF 1=1 THEN PRINT SPRINT 

700 IF I = ( THEN PRINT “MOW, THAT MAS TOO EASY." 

710 IF I=! THEN PRINTsPRINT "OR ELSE YOU CHEATED*” 

720 IF 1=1 THEN PRINTsPRINT “TRY AGAIN." 

730 IF 1=1 GOTO 120 

740 IF 1=2 THENPRINTsPRINT 

750 IF 1=2 THEN PRINT “YEAH, YOU GOT IT. BUT DON'T GET" 

760 IF 1=2 THEN PRINTsPRINT "30 EXCITED. PURE LUCK. TRY AGAIN. 

sGOTO 120 
770 FOR 5=3 TO 7 
780 IF I=S THEN PRINT CHRS(12) 

790 IF I=S THEN PRINT " HEY, NOT 9AD, SPORT!!" 

800 IF I=S THEN PRINTsPRINTsPRINTsPRIMTsPRINTsPRINT 

810 IF I=S THEN PRINT " YOU GOT IT IN ONLY”;I;"TRIES!!!" 

320 IF I=S THEN PR I NTsPRINT;PRINTsPRINTsPRINT : PR INT 
330 IF 1=3 THEN PRINT "FAAA ARRRRR FREEEAAAKKKKINNM ’ OUUMUTTTT! 
! ! ! ” 

840 IF I=S THEN PRINT SPRINT SPRINT “I'M IMPRESSED!" 

350 IF I=S THEN RETURN 

860 NEXT S 

370 FOR S =8 TO 9 

380 I FI=S THEM PR I NTsPR I NTsPR INT“EH ! YOU DID OKAY.“;I{“TR IES." 
890 IF 1=3 THEM PRINT SPRINT iPRINT“3UT YOU CAN DO 3ETTER THAN THA 
T, RIGHT ?” 

900 IF I=S THEN RETURN 

910 NEXT S 

920 PRINTCHR$(12) 

930 PRINT SPRINT”CHEATER! CHEATER!! CHEATER!!!” 

940 PRINT "YOU GOTTA USE FOUR DIFFERENT NUMBERS, CHEATER. 

950 IF 1=9 THEN PRINT "AND THAT USED YOUR LAST GUESS, TOO.” 

960 IF 1=9 THEN PRINT “YOU DON'T DESERVE ANOTHER CHANCE.”sSTCP 
970 PRINT “AND THAT USED UP ONE OF YCUR GUESSES, TOO.” 

930 PRINT “TRY AGAIN, CHEATER." 

990 PRINT 
1000 F =1 
1010 RETURN 
1320 PRINTCHRS(12) 

1030 PRINT T AB(20)J”l AM THE COMPUTER GOD. 

1040 PRINT "I WILL CHOOSE A FOUR-NUMBER COMBINATION. 

1050 PRINT "YOUR JOB IS TO FIGURE OUT WHICH NUMBERS 
1060 PRINT "I HAVE CHOSEN, AND TO PUT THEM IN THE CORRECT 
1070 PRINT "POSITIONS, FROM THE CLUES I GIVE YOU."SPRINT SPRINT 
1080 PRINT "HOW TO PLAYs" 

1090 PRINTsPRINT "1 ) CHOOSE EITHER THE BEGINNER'S OR 
1100 PRINT ” ADVANCED PLAYER'S GAME. 

1110 PRINT ” FOR BEGINNERS, I WILL CHOOSE 

1123 PRINT ” NUMBERS BETWEEN ONE AND SIX. 

1133 PRINT " FOR ADVANCED PLAYERS, I CHOOSE 

1140 PRINT " NUMBERS BETWEEN ONE AND MINE. 

1150 PRINTsPRINT ”2) ENTER YOUR GUESS (EXAMPLES 1,2,3,4). 

1160 PRINTsPRINT ”3) FOR EACH OF YOUR GUESSES, I WILL 
1170 PRINT " PRINT OUT A CHART LISTING ALL OF YOUR 



1130 PRINT " GUESSES. NEXT TO THESE ARE COLUMNS 
1190 PRINT " LABELED *N* AND *P*. 'N' IS THE MUMPER 

1200 PRINT " OF NUMBERS YOU HAVE GUESSED CORRECTLY. 

1210 PRINT " 'P' INDICATES HOW MANY OF ’N’ ARE IN THE 

1220 PRINT " CORRECT POSITIONS. 

1230 PRINTsINPUT "PRESS RETURN TO CCNTINUE”;XX* 

1240 PRINT CHRSU2) 

1250 PRINTsPRINT "4) YOU HAVE NINE CHANCES TO GUESS THE 
1260 PRINT '* COMBINATION I HAVE CHOSEN. 

1270 PRINTsPRINT ”5) I WILL NEVER PICK A COMBINATION IN WHICH 
1280 PRINT ” A NUMBER IS REPEATED. THEREFORE, ANY 

1290 PRINT " GUESS WHICH USES A NUMBER MORE THAN CNCE IS ILLE 

u A L • 

1300 PRINT SPRINT SPRINT iPRINT sPRIMT 

1310 RETURN 

READY 


10 REN DAT49ASE M AN A GE'IENT BY D4VE BOISTOP AUG 79 
20 CLEAR 5P00 AUC * 79 

30 DIN REC$(200 ) 

^SYSTEM 12) SPRINT SPRINT TAB( 15 ) S "D AT A STORAGE AND RETRIEVAL 

50 REM SET UP MACHINE SUBROUTINES IN LOW MEMORY 
17, IS,224,253, I 15,55,253, 1 M,54,201 
70 DATA 17,27,224,253,115,53,253,114,54,201 
la 7, i 5 ' 2 - 4 * 253 - 1l5 »S5,253,114,65,201 

?00°FOR {?ir fo ^.2”.<> 5(S5 ,253,,,4.66.20, 

113 : READ a 
120 : POKE I,A 
130 NEXT I 

140 REM COMMAND LOOP 

150 PRINTsPRINT "SELECT AM OPTIONS 

160 PRINT 

170 PRINT TAB(10)• M 1 - CONSTRUCT A NEW DATA9A C £ 

180 PRINT TAB(|0)j"9 - SAVE A FILE 

190 PRINT TAB(|3)•"3 - LOAD A FILE 

200 PRINT T AB(J 0);"4 - LIST FILE 

210 PRINT TAB(10);"5 - ADD TO END OF FILE 

220 PRINT TAB(10);”5 - SEARCH FOR ENTRY 

230 PRINT TAB(10);"7 - END PROGRAM 

THEN P ?40 T8lNPUT ” ,, ' JMBER " ! ° PI:IF ASC(CP$) » 57 OR ASC(OPI) < 4S 
250 OP=V$L(OPS) 

260 ON OP GOTO 300,640,320,9*0,1043,1150,070 
?70 REM END PROGRAM 

230 CLEAR 
290 END 

300 REM CONSTRUCT NEW DATABASE 

313 PRINTsINPUT "HOW MAY RECORDS WILL YOU ENT 11 ' 0 NOW 

323 FOR I=! TO N 

330 : GOSUR 370 

340 NEXT I 

350 PRINT CMR$(12)sGOTO 150 

360 RE -4 CONSTRUCT RECORD 

373 : PRINTsPRINT “ENTER RECORD I SPRINT “TYPE EACH PART AMD 
R ET UR N * " s 

380 S PRINT “WREN FINISHED TYPE 0 and RETURN. 

390 ; INPUT “^IRST PART “;R$ 



IF LEN(REC$(I))+LEN(R$) < 255 THEM 430 

PRINT “TOO LONG OR RECORD FULL - MAXIMUM LENGTH 255 CHara 


GOTO 370 

REC$(I)=REC$(I)+R$ 

INPUT ’’NEXT PART ";R$ 

IF R$="0" THEN RECS(I)=REC$(I)-h:HR$(173)sGOTO 480 
R$=CHR$(142)+R$ 

GOTO 400 

PRINTsPRINT ’’RECORD ”;I;’’LOOKS LIKE THISs 
GOSUB 543 

PRINTsINPUT ’’IS THIS RECORD OK AS IT STANDS (Y/N) ”;0«'$ 

IF OK$<>”N” AND OK$<>"N'* AND OK$<»”Y*’ AND OK$<>"Y” THEN 5 


520 s IF OK$=”N” OR OKS=”N” THEN RECS (I) =”" : GOT0 370 
533 RETURN 

540 REM PRINTING ROUTINE 

550 ST=I 

560 FOR J=| TO LEN(REC$(I)) 

570 : IF NID$(REC$(I) t J f |)<>CHR$(l42) THEN S10 
580 s IF MID$<REC$(I),J t l)=CHR$(173> THEN 620 
590 s PRINT MID$<RECS(I),ST,J-ST);" ”; 

600 : ST=J+1 
610 NEXT J 

620 PRINT NID$(REC$(I) f ST,J-ST-t) 

630 RETURN 

640 REM SAVE FILE 

650 PRINT :PRINT ’’PUT YOUR D ATA CASSETTE IN THE RECORDER, REWIND 
IT, 

660 PRINT ’’PRESS PLAY AND RECORD AND WAIT FOR THE LEADER TO PASS 


670 INPUT ’’RETURN WHEN READY”;X$ 

680 REM CHANGE OUTPUT TO TAPE 

693 POKE 260,10SPOKE 251,0;XX = >JSR(0) 

700 FOR J=1 TO I00:NEXT J 
710 PRINT ”” 

720 REC$(0)=STR$(M> 

730 FOR 1=0 TO N 
740 s PRINT RECS(I) 

750 : FOR J=1 TO 100-.NEXT J 

760 s IF 1=0 THEN FOR J=1 TO 1300:NEXT J 

770 NEXT I 

780 REM CHANGE OUTPUT BACK TO VIDEO 
7S0 POKE 250,20:POKE 261,0:XX=USR(3) 

800 PRINT SPRINT ”FILE SAVED - REWIND DATA TAPE FOR FUTURE USE. 
810 GOTO 150 

820 REM LOAD FILE 

330 PRINTsPRINT ’’PUT YOUR DATA CASSETTE IN THE RECORDER, 

840 PRINT "REWIND IT, AND PRESS PLAY. 

850 INPUT ’’RETURN WHEN READY” ;X$ 

360 REM CHANGE INPUT TO TAPE 

870 POKE 260,30 SPOKE 26 l, 05XX = iJSR (0) 

330 INPUT X$ 

390 INPUT N$sN$ =RIGHT$(N$,L£N(NS)-1)SN = VAL(M$) 

900 FOR 1=1 TO N 
910 s INPUT RECS(I) 

9 20 s RECS (I )=RIGHT$(REC$(I),LEM(REC$(I))-l) 

930 NEXT I 

940 REM CHANGE INPUT BACK TO KEYBOARD 
950 POKE 260,40SPOKE 26 i,0sXX = «JSR (3) 

960 PRINTsPRINT ’’FILE LOADED - REWIND DATA TAPE FOR FUTURE USE. 
970 GOTO |53 


LIST FILE 


980 REM 

990 FOR 1=1 TO N 
1000 s PRINTsPRINT "RECORD ”;I 
1010 s GOSUB 540 
1020 NEXT I 
1030 GOTO 150 

1040 REM ADD TO END OF FILE 

1050 PRINTsINPUT "HOW MANY RECORDS DO YOU WANT TO ADD "sNI 

1060 PRINT "THERE ARE";N;"RECORDS IN THE FILE 

1070 PRINT "THE FIRST NEW RECORD ADDED IS ";N+1 

1030 R=2sREM SET RETURN LOCATION 

1090 FOR I=N +1 TO Nl+N 

1100 S GOSUB 370 

1110 NEXT I 

1120 N = N +NI 

1130 PRINT CHR$(12) 

1140 GOTO 150 

I* 50 REM SEARCH FOR ENTRY 

1160 PRINTsINPUT "ENTER ITEM TO BE SEARCHED FOR ";SR$ 

1170 LN=LEN(SR$) 1 

1180 FOR I=| TO N 

1190 s FOR J=| TO LEN(REC$(I)) 

l IF MID$(RECS(I),J f LN) = SR$ THEN PRINTsGOSUB 540sF=l 
1210 8 NEXT J 
1220 NEXT I 
1230 IF F=| THEN 1250 

1250 GOTO T |50 INT ” 1TEM ’" ,SRI? "' M0T IN ANY REC0RD IN .FILE. 
READY 




